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/logonthm Schedule^) \ 

Ans*er:= | |; Per.dinq := : V r nabled :- \ h 
for each n in leaves(/T< -V ^mput8QueryNode(n); 
while (enabled i \ \ OR Kr 'i.ig i [ j) 

L := chooseForSchs^iir'tnabled); /* implements a particular scheduling policy */ 
for each (Q.S) in L d«. 

Pending := Pending u{((?,S)|; LDAP_issueQuery(0,S); 
LDAP„.waitForEvent(fi}; 



boolean answer for Q@S: Pending := Pending -\[Q,S)\ 

storeCache(Q,S',e.vaJue); 
for n in getCacheWaitinglist(Q,S) do | 
n.value := e. value; 
computeConditionalNode(n. parent); j 
directory entry for Q®S: Answer := Answer u|e. value \ 
End-of-Entries for Q@S: Pending := Pending -\{Q,S}\ 



return Answer; 

function computeQueryNode(n) j 

if all n's children are computed then 

Q \" generateQuer/Exprftbsion(n. Query); /* expands all if-macros*/ 
5' := n. Server; v := getCache(Q,S); 
case v of 



case e. type of 



INEXISTENT: 



insertCache(Q,S, Pending); 
Enabled := Enabled uj(Q,S)j; 
addCacheWaitingList(Q,S',n); 




Pending addCacheWaitingList(Q,5,ry; 
TRUE, FALSE: n.value v ; 

computeConditionalNode(n.parenf) 



function computeConditionalNode(n) j 

if (exist p in n.children such that p. value = TRUE) then 

n.value := TRUE; computeQueryNode( . ); 
else if (all n's children are computed) then 

n.value := FALSE; computeQueryNode(n.parenf); 
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